110 PRINT"[147][144]        NOTONE        [146][144]"
120 PRINT"[144]INSTRUCTIONS?"
130 PRINT"(O=OUI)";:INPUTA$
150 IFA$="O"THEN160
155 GOTO240
160 POKE36879,25
170 PRINT"[147]VOICI LE JEU DE NOTONE[146]. LE BUT DU JEU DE NOTONE EST";
180 PRINT" DE  LANCER UNE PAIRE DE DES EN CALCULANT VOS POINTS CUMULATIVEMENT.
190 [153]" SI  PENDANT QUE VOUS LANCEZ LES DES, LE TOTAL";
200 [153]" EGALE LE TOTAL  DE VOS  PREMIERS POINTS ALORS VOUS PERDEZ";
210 [153]" TOUS VOS  POINTS ACCUMULES. EVIDEMENT, VOUS POUVEZ VOUS ARRETER";
220 [153]" DE LANCER  N'IMPORTE QUAND. IL Y A DIX TOURS";
230 [153]" PAR JEUX  STOPBONNE CHANCEWAITSTOP (J'SUIS  UN AS !!!)"
231 [153]"CONVERSION DE L'ANGLAIS PAR BAUDOUIN    ST-CYR
232 PRINT
233 PRINT
234 PRINT
235 PRINT"'RETURN'"
236 GETZ$:IFZ$=""THEN236
240 P1=0:C1=0
250 P=0:C=0
255 POKE36879,25
260 PRINT"[147]VOUS COMMENCEZ!!"
270 FORI=1TO10:PRINT
280 PRINTTAB(8);"RONDE"I
290 PRINT"VOTRE TOUR"
300 GOSUB890:F=D:D=0
310 S=0
320 R=0
330 R=R+1
340 PRINT"LANCER"R"EST UN"D1"ET"D2
350 IFD=FTHEN410
360 S=S+D1+D2
370 PRINT"S[146]TOP OU R[146]OULE";:INPUTA$
380 IFA$="S"THEN420
390 IFA$="R"THEN400
391 GOTO370
400 GOSUB890:GOTO330
410 S=0
420 P=P+S
430 PRINT"[147][144]VOUS RECEVEZ"S"POINTS CETTE RONDE.[144]"
440 PRINT"MON TOUR."
460 GOSUB890
470 F=D
480 S=0
490 R=0
500 D=0
510 T=18/(3-INT(ABS(F-7)/2))
520 Z=INT((((T*7)/6)-T)*36)
530 R=R+1
540 PRINT"LANCER"R"EST UN"D1"ET "D2
545 FORX=1TO250:NEXTX
550 IFF=DTHEN640
560 S=S+D1+D2
570 IFI<>10THEN600
580 IFC+S>PTHEN650
590 GOTO620
600 IFR>=TTHEN650
610 IFS>ZTHEN650
620 GOSUB890
630 GOTO530
640 S=0
650 PRINT"[147]J'AI RECUS"S"POINTS  CETTE RONDE"
660 C=C+S
670 PRINT"POINTAGE A LA FIN DE  LA RONDE"I
680 PRINT"VOUS",P
690 PRINT"ORDINATEUR",C
700 NEXTI
710 PRINT""
730 IFC>PTHEN770
731 IFC=PTHEN760
740 PRINT"[144]VOUS GAGNEZ!!![146][144]":P1=P1+1
750 GOTO780
760 PRINT"[144]C'EST L'EGALITE!":GOTO780
770 PRINT"[144]VOUS PERDEZ!!!!![144]":C1=C1+1:GOTO780
780 PRINT"      LE POINTAGE    [146]"
790 PRINT"VOUS",P1
800 PRINT"ORDINATEUR[144]",C1
820 PRINT"ENCORE ?? (O=OUI)"
830 INPUTA$:IFA$="O"THEN250
840 PRINT
850 IFP1>C1THEN870
851 IFP1=C1THEN880
860 PRINT"JE GAGNE PAR"C1-P1:GOTO920
870 PRINT"VOUS GAGNEZ PAR"P1-C1:GOTO920
880 PRINT"C'EST L'EGALITE!":GOTO920
890 D1=INT(RND(1)*6+1)
900 D2=INT(RND(1)*6+1)
910 D=D1+D2:RETURN
920 END